Para responder essa pergunta irei analisar a quantidade de votos das séries que tiveram uma queda na avaliação média com o decorrer das temporadas: Under The Dome, Heroes.
sumarios = dados %>%
filter(series_name %in% c("Heroes","Under The Dome"))%>%
group_by(series_name,season) %>%
summarise(
season_rating = round(mean(user_rating),2),
season_votes = round(mean(user_votes),2))
sumarios$season <- as.integer(sumarios$season)
heroes = sumarios%>%
filter(series_name %in% c("Heroes"))
p1 <- plot_ly(sumarios, x = ~heroes$season, y = ~heroes$season_rating,
mode = "markers", color = heroes$season_votes, size = heroes$season_votes, marker=list(sizeref=0.1)) %>%
layout(
title = 'Heroes',
xaxis = list(
title = 'Temporada',
range = c(0,5)
),
yaxis = list(
title = 'Avaliação média'
)%>% colorbar(title = "Quantidade de votos")
)
## Warning: 'layout' objects don't have these attributes: 'aaxis', 'baxis', 'caxis'
## Valid attributes include:
## 'font', 'title', 'titlefont', 'autosize', 'width', 'height', 'margin', 'paper_bgcolor', 'plot_bgcolor', 'separators', 'hidesources', 'smith', 'showlegend', 'xaxis', 'yaxis', 'ternary', 'scene', 'geo', 'mapbox', 'radialaxis', 'angularaxis', 'direction', 'orientation', 'dragmode', 'hovermode', 'hoverlabel', 'legend', 'annotations', 'shapes', 'images', 'updatemenus', 'sliders', 'calendar', 'barmode', 'bargap', 'mapType'
## Warning: Didn't find a colorbar to modify.
under = sumarios%>%
filter(series_name %in% c("Under The Dome"))
p2 <- plot_ly(sumarios, x = ~under$season, y = ~under$season_rating,
mode = "markers", color = under$season_votes, size = under$season_votes, marker=list(sizeref=0.1)) %>%
layout(
title = 'Under the Dome',
xaxis = list(
title = 'Temporada',
range = c(0,5)
),
yaxis = list(
title = 'Avaliação média'
)
)%>% colorbar(title = "Quantidade de votos")
## No trace type specified:
## Based on info supplied, a 'scatter' trace seems appropriate.
## Read more about this trace type -> https://plot.ly/r/reference/#scatter
ggplotly(p1)
## No trace type specified:
## Based on info supplied, a 'scatter' trace seems appropriate.
## Read more about this trace type -> https://plot.ly/r/reference/#scatter
ggplotly(p2)
Utilizando 2 gráficos interativos, é possivel perceber que enquanto a avaliação média sofre um decaimento, a quantidade de votos cai da mesma forma, existindo assim uma associação entre avaliação média, quantidade de votos e o cancelamento dessas 2 séries.